PROGRAMMING CHALLENGES USXNG 

MATRICES 



1. Place more than one ship on the battleship board in a 
random location for the user to find* 

2\ Make the ship larger, so that it takes up two or three 
locations on the grid of elements in the Matrix* Give the 
outer limits of the ship different values than the middle of 
the ship* This way, you can give the player feedback on his 
or her guess* (eg* "You hit the front of the ship* 11 ) . . 



3* Give the player hints in response to his or her guesses* 
For example* if the program player's guess for the row 
position is one away from the ship, PRINT n YOUR ROW GUESS IS 
HOT 1 ,l If the next row guess is more than one away from the 
ship's location* PRINT "YOUR ROW INDEX IS GETTING COLDER ♦ " 
Do the same for the column values* 



4* Place friendly ships and enemy ships on the game board* 
Give the friendly ships one value and the enemy ships another 
value in order to differentiate the two* Keep score for the 
player* When an enemy ship is encountered* the player gains 
points* When an allies ship is hit* the player looses 
points ♦ 

5* Experiment with different graphics modes* drawing a grid* 
and displaying the actual ships on the screen* 
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MATRICES 

Camper Copy 



xxxxx BATTLESHIP xxxxx 



100 REM x BATTLESHIP 
110 REM x 

120 REM x INITIALIZE VARIABLES 

130 REM x 

140 MAXL0CATI0NS=4 

150 OIM BOARD ( MAXLOCATIONS t MAXLOCATIONS ) 
160 COLUMN=0 :ROW=0 
20 0 REM x 

210 REM x INIT MATRIX 

220 REM x 

230 FOR ROW = 1 TO MAXLOCATIONS 

240 FOR COLUMN « 1 TO MAXLOCATIONS 

250 BOARD(ROW,COLUMN>=0 

260 PRINT LOCATION < ROW , COLUMN ) 

270 NEXT COLUMN 

280 NEXT ROW 



xxxxx PLACE SHIP xxxxx 



400 REM x 

410 REM x PLACE SHIP 

420 REM x 

430 SHIPROW = INT(RND(0)x40 + l I REM A RANDOM NUMBER 
440 SHIPCOL = INT ( RND ( 0 ) +4 ) + l J REM BETWEEN 1 AND 4 

450 BOARD (SHIPROW f SHIPCOL ) =1 t REM ONE IS ASSIGNED TO RANDOM LOCATION 
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MATRICES 

Canper Copy Continued 



xxxxx PLAY xxxxx 



70 0 REM * PLAY 
720 REM x 

730 PRINT "TYPE IN THE COORDINATES OF" 
740 PRINT "YOUR GUESS. THE NUMBER MUST" 
750 PRINT "BE BETWEEN 1 AND 4. 
760 PRINT 

770 PRINT "ROW: " J 
780 INPUT ROWGUESS 
790 PRINT "COLUMN t " , 
80 0 INPUT COLGUESS 

810 IF BOARD<ROWGUESS,COLGUESS)=l THEN PRINT "YOU FOUND IT ! " J END 
820 PRINT 

830 PRINT "TRY AGAIN" 
840 GOTO 770 



r 



r 
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MATRICES 

Camper Copy Continued 



1020 POSITION 0,3: PRINT *6?"R" 

1030 POSITION 0,4: PRINT *6J"0" 

1040 POSITION .0,5* PRINT *6J"W" 

1050 POSITION 0,6: PRINT *6;"S" 

1060 PRINT " TYPE IN THE COORDINATES OF" 

1070 PRINT " YOUR GUESS » THE NUMBER MUST" 

1080 PRINT " BE BETWEEN 1 AND 4," 

1090 PRINT "ROW: " : 

1100 INPUT ROWGUESS 

1110 IF ROWGUESS<l OR ROWGUESSM THEN 1090 
1120 PRINT "COLUMN: " \ 
1130 INPUT COLGUESS 

1140 IF COLGUESS<l OR COLGUESS>4 THEN 1120 

1150 IF BOARD(ROWGUESS,COLGUESS>=l THEN GOSUB WIN:RETURN 

1160 POSITION C0LGUESS*4,R0WGUESS*2:REM PUT * ON BOARD 

1170 PRINT *6:"X" 

1180 PRINT :PRINT "TRY AGAIN" 

1190 GOTO 1090 

1300 REM x 

1310 REM x WIN 

1320 REM x 

1330 PRINT : PRINT "YOU FOUND IT!" 

1340 FOR COUNT=l TO 10 

1350 POSITION C0LGUESS*4,R0WGUESSX2 

1360 print *6: M ";:rem ERASE * 

1370 FOR DELAY=1 TO 75:NEXT DELAY 
1380 POSITION C0LGUESSx4,R0WGUESSx2 
1390 PRINT *6i"x"j:REM FLASH x 
1400 FOR DELAY=1 TO 75:NEXT DELAY 
1410 NEXT COUNT 
1420 RETURN 
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ARRAYS 
CAMPER COPY CONTINUED 



20 0 REM x 

210 REM * PLAY TUNE 

220 REM x 

230 FOR XNOTE = 1 to NUMNOTES 

240 SOUND 0 ,TUNE(XNOTE) ,10,10 

250 FOR DELAY = 1 TO 10 J NEXT DELAY 

260 NEXT XNOTE 

270 SOUND 0,0,0,0 



100 REM x SOUND WITH AN ARRAY PLUS PLAY TUNE 

110 REM x 

120 DIM TUNE(IOO) 

130 XNOTE = 0 

140 INPUT PITCH 

^ 150 IF PITCH - -1 THEN NUMNOTES = XNOTE, GOTO 200 

160 XNOTE = XNOTE + 1 
170 TUNE (XNOTE) = PITCH 
180 GOTO 140 
200 REM x 

210 REM x PLAY TUNE 

220 REM x 

230 FOR XNOTE = 1 to NUMNOTES 

240 SOUND 0,TUNE(XNOTE) ,10,10 

250 FOR DELAY = 1 TO 10! NEXT DELAY 

260 NEXT XNOTE 

270 SOUND 0,0,0,0 
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